home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAVGCRK.ZIP / VIGCRACK.PPS < prev   
Text File  |  1996-02-22  |  2KB  |  63 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; Description : Registration codes finder for Vigilante's PPEs (sorry dude) ;;
  3. ;; Revision    : 1                                                           ;;
  4. ;; Compile     : PPLC v2.00+                                                 ;;
  5. ;; Author      : Timecop [PWA]                                               ;;
  6. ;; Creation    : 04-06-95                                                    ;;
  7. ;; Last update : 04-07-95                                                    ;;
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11. ; Global Variables
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. string   DataFromPcbsetup(2)
  15. integer  i
  16. integer  Protection
  17.  
  18. startdisp fns
  19. newlines 2
  20.  
  21. Protection=1
  22. DataFromPcbsetup(1)=lower(readline(pcbdat(),2)+readline(pcbdat(),94))
  23. DataFromPcbsetup(2)=upper(readline(pcbdat(),2)+readline(pcbdat(),94))
  24. fclose -1
  25.  
  26. for i=1 to len(DataFromPcbsetup(1)) step 2
  27. Protection=left(Protection*asc(mid(DataFromPcbsetup(1),i,1)),6)
  28. next i
  29.  
  30. println "@X08Slogon    - (@X07"+string(Protection)+"@X08)@X07"
  31.  
  32. Protection=1
  33.  
  34. for i=1 to len(DataFromPcbsetup(1)) step 3
  35. Protection=left(Protection*asc(mid(DataFromPcbsetup(1),i,1)),6)
  36. next i
  37.  
  38. println "@X08Schat     - @X08(@X07"+string(Protection)+"@X08)@X07"
  39.  
  40. Protection=1
  41.  
  42. for i=1 to len(DataFromPcbsetup(2)) step 3
  43. Protection=left(Protection*asc(mid(DataFromPcbsetup(2),i,1)),6)
  44. next i
  45.  
  46. println "@X08ProVote   - @X08(@X07"+string(Protection)+"@X08)@X07"
  47.  
  48. Protection=1
  49.  
  50. for i=1 to len(DataFromPcbsetup(2)) step 2
  51. Protection=left(Protection*asc(mid(DataFromPcbsetup(2),i,1)),6)
  52. next i
  53.  
  54. println "@X08ProMatrix - @X08(@X07"+string(Protection)+"@X08)@X07"
  55.  
  56. newline
  57. println "@X08Happy Registering@X07!"
  58. end
  59.  
  60. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  61. ; End Of File
  62. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  63.